<script>on arrowKey whichkeyif whichkey = "right" thenvisual wipe leftgo next cdexit arrowKeyend ifif whichkey = "left" thenvisual wipe rightgo prev cdexit arrowKeyend ifend arrowKey-- palette handlers-- necessary because palette buttons only accept-- one line of the button handleron findNextglobal findStringif findString is empty thenanswer "There is nothing to find now." with "Okay"exit findNextend ifset lockscreen to truego next cdfind findStringset lockscreen to falsevisual wipe rightend findNexton goLeftvisual wipe rightgo prev cdend goLefton goRightvisual wipe leftgo next cdend goRighton goSearchvisual dissolvego cd "Search"end goSearchon goHelpvisual dissolvego cd "Help 1"end goHelpon goHomeanswer "Do you wish to exit this stack?" with "Okay" or "Cancel"if it is "Okay" thenvisual dissolvego Homeend ifend goHomeon goFirstvisual dissolvego first cd of this stackend goFirston printMeanswer "Print this card?" with "Okay" or "Cancel"if it is "Okay" then doMenu "Print Card"end printMeon GoSearchListglobal findStringif findString is empty thenanswer "This button displays a list of the articles that meet your search criteria after you perform a search." with "Okay"exit GoSearchListelsevisual dissolvego cd id 133571 -- cd SeacrchListend ifend GoSearchListon emptyFlds-- handler to empty article List on cd "SearchList"-- card ids are used for speedput empty into cd fld id 6 of cd id 133571 --queryput empty into cd fld id 13 of cd id 133571 --yearput empty into cd fld id 14 of cd id 133571 --monthput empty into cd fld id 19 of cd id 133571 --titleput empty into cd fld id 16 of cd id 133571 --cardListend emptyFlds</script>